﻿
Public MustInherit Class property_wrapper(Of T)
    Implements iproperty

    Protected ReadOnly p As iproperty(Of T) = Nothing

    Public Sub New(ByVal p As iproperty(Of T))
        assert(Not p Is Nothing)
        Me.p = p
    End Sub

    Public Function destroy() As eventComb Implements iproperty.destroy
        Return p.destroy()
    End Function
End Class
